home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / quad-2.bas < prev    next >
BASIC Source File  |  1994-06-23  |  501b  |  20 lines
  1. 10 PRINT "       ***QUADRATIC EQUATION***"
  2. 20 PRINT
  3. 30 INPUT "ENTER COEFFICIENT (A)"; A
  4. 40 INPUT "ENTER COEFFICIENT (B)"; B
  5. 50 INPUT "ENTER COEFFICIENT (C)"; C
  6. 55 D = (B^2 - 4*A*C)
  7. 56 IF D<0 GOTO 96
  8. 60 X1=(-B+(B^2-4*A*C)^.5)/(2*A)
  9. 70 X2=(-B-(B^2-4*A*C)^.5)/(2*A)
  10. 71 PRINT
  11. 72 PRINT "          ***ANSWERS***"
  12. 73 PRINT
  13. 80 PRINT X1 "VALUE OF FIRST ROOT"
  14. 90 PRINT X2 "VALUE OF SECOND ROOT"
  15. 95 END
  16. 96 PRINT
  17. 97 PRINT "                ***SOLUTION***"
  18. 98 PRINT
  19. 100 PRINT "ROOT IS NOT REAL"
  20.